﻿Imports System.Windows.Controls
Imports System.Windows

Public Class CompteRowStyleSelector
    Inherits StyleSelector

    Public Property TitreCompteStyle As Style
    Public Property Titre1Style As Style
    Public Property Titre11Style As Style
    Public Property Titre12Style As Style
    Public Property Titre13Style As Style
    Public Property Titre2Style As Style
    Public Property ResultatStyle As Style

    Public Overrides Function SelectStyle(ByVal item As Object, ByVal container As System.Windows.DependencyObject) As System.Windows.Style
        Dim rowView As DataRowView = DirectCast(item, DataRowView)
        Dim VMValeurCompte_titre As VMValeurCompte = rowView.Row.Item(0)
        If TypeOf (VMValeurCompte_titre) Is VMValeurCompte_Titre1 Then
            Return Titre1Style
        ElseIf TypeOf (VMValeurCompte_titre) Is VMValeurCompte_Titre2 Then
            Return Titre2Style
        ElseIf TypeOf (VMValeurCompte_titre) Is VMValeurCompte_TitreCompte Then
            Return TitreCompteStyle
        ElseIf TypeOf (VMValeurCompte_titre) Is VMValeurCompte_Resultat Then
            Return ResultatStyle
        ElseIf TypeOf (VMValeurCompte_titre) Is VMValeurCompte_Titre11 Then
            Return Titre11Style
        ElseIf TypeOf (VMValeurCompte_titre) Is VMValeurCompte_Titre12 Then
            Return Titre12Style
        ElseIf TypeOf (VMValeurCompte_titre) Is VMValeurCompte_Titre13 Then
            Return Titre13Style
        End If
        Return MyBase.SelectStyle(item, container)
    End Function

End Class
